home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / assemblr / library / tasmswan / capslock.asm < prev    next >
Assembly Source File  |  1989-07-17  |  625b  |  46 lines
  1. %TITLE "Tests capslock key"
  2.  
  3.     IDEAL
  4.     DOSSEG
  5.     MODEL    small
  6.     STACK    256
  7.  
  8. SEGMENT    BIOSData at 0040h
  9.     ORG    017h
  10. KbFlag    db    ?
  11. ENDS    BIOSData
  12.  
  13.     DATASEG
  14.  
  15. CapsString    db    'CapsLock is: ', 0
  16. CapsOn        db    'ON',0
  17. CapsOff        db    'OFF',0
  18.  
  19.  
  20.     CODESEG
  21.  
  22. ;--------- from STRIO.OBJ
  23.     EXTRN    StrWrite:proc
  24.  
  25. Start:
  26.     mov    ax,BIOSData
  27.     mov    es,ax
  28.     ASSUME    es:BIOSData
  29.     mov    bl,[KbFlag]
  30.     mov    ax,@data
  31.     mov    ds,ax
  32.     mov    es,ax
  33.     ASSUME:    ds:@data, es:@data
  34.     mov    di, offset CapsString
  35.     call    StrWrite
  36.     mov    di, offset CapsOn
  37.     test    bl,040h
  38.     jnz    @@10
  39.     mov    di, offset CapsOff
  40. @@10:
  41.     call    StrWrite
  42.     mov    ax,04C00h
  43.     int    21h
  44.  
  45.     END    Start
  46.